| Filename | (eval 1043)[/usr/share/perl/5.10/CGI.pm:869] |
| Statements | Executed 3 statements in 20µs |
| Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 13µs | 16µs | CGI::TIEHASH |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 16µs (13+4) within CGI::TIEHASH which was called:
# once (13µs+4µs) by CGI::Vars at line 832 of CGI.pm | ||||
| 2 | 1 | 1µs | my $class = shift; | ||
| 3 | 1 | 700ns | my $arg = $_[0]; | ||
| 4 | 1 | 18µs | 1 | 4µs | if (ref($arg) && UNIVERSAL::isa($arg,'CGI')) { # spent 4µs making 1 call to UNIVERSAL::isa |
| 5 | return $arg; | ||||
| 6 | } | ||||
| 7 | return $Q ||= $class->new(@_); | ||||
| 8 | } | ||||
| 9 | |||||
| 10 | ; |